home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / TCEL.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  1.4 KB  |  66 lines
  1. # The InterNet Shop PPP login script
  2. # Copyright 1995 Quarterdeck Corporation
  3. # 7-13-95 CEL
  4.  
  5. STRING username
  6. STRING password
  7. STRING framing
  8. STRING IPAddress
  9.  
  10. SetTimeOut  60
  11.  
  12. CfgGetValue "Username" username
  13.  
  14. IF result = 0 THEN
  15.     GetInput "Enter your username:"  username
  16.     IF result = 0 THEN
  17.         PRINT "Warning, no username entered."
  18.     ELSE
  19.         PRINT "Username set to: ";username
  20.     ENDIF
  21. ENDIF
  22.     
  23. CfgGetValue "Password" password
  24. IF result = 0 THEN
  25.     GetPassword "Enter your password:" password
  26.     IF result = 0 THEN
  27.         PRINT "Warning, no password entered."
  28.     ELSE
  29.         PRINT "Password set."
  30.     ENDIF
  31. ENDIF
  32.     
  33. CfgGetValue "Framing" framing
  34. IF result = 0 THEN
  35.     ABORT "Can't read 'Framing' setting from QDECK.INI."
  36. ENDIF 
  37.  
  38. CommWaitFor     "host:"
  39. IF framing = "MPPPP" THEN
  40.     CommSend "ppp"
  41. ENDIF
  42. IF framing = "MPSLIP" THEN
  43.     CommSend "SLIP"
  44. ENDIF        
  45. CommSend        "%r"
  46.  
  47. CommWaitFor     "login"  
  48. CommSend        username
  49. CommSend        "%r"         
  50.     
  51. CommWaitFor     "password:"
  52. CommSend        password
  53. CommSend        "%r"
  54.     
  55. IF framing = "MPSLIP" THEN
  56.         CommWaitFor    "to"
  57.         CommReadIPAddr IPAddress
  58.         IF result < 7 THEN    # IP Address length test
  59.             ABORT "Invalid IP Address!"
  60.         ENDIF
  61.         CfgSetValue "IPAddress" ipaddress
  62.  
  63.         PRINT "%rIP Address set to:"; ipaddress
  64. ENDIF
  65. END
  66.